home *** CD-ROM | disk | FTP | other *** search
/ Hello Kitty - Big Fun Shapes & Numbers / Hello Kitty - Big Fun Shapes & Numbers (USA).bin / mac / _MATH / 00449.ls < prev    next >
Encoding:
Text File  |  1995-05-08  |  848 b   |  31 lines

  1. playSound("the correct answer is", 1)
  2. set sayStr to string(answer) & "," & disp1 & ",and," & disp2
  3. set sayItem to item 1 of sayStr
  4. set count to 0
  5. set flashCount to 0
  6. repeat while (sayItem <> EMPTY) or (flashCount <= 4)
  7.   put string(answer) into field "ansDisplay"
  8.   set t to the timer
  9.   repeat while (the timer - t) < 30
  10.     if not soundBusy(1) then
  11.       set count to count + 1
  12.       set sayItem to item count of sayStr
  13.       if sayItem <> EMPTY then
  14.         playSound(sayItem, 0)
  15.       end if
  16.     end if
  17.   end repeat
  18.   hilite field "ansDisplay"
  19.   set t to the timer
  20.   repeat while (the timer - t) < 30
  21.     if not soundBusy(1) then
  22.       set count to count + 1
  23.       set sayItem to item count of sayStr
  24.       if sayItem <> EMPTY then
  25.         playSound(sayItem, 0)
  26.       end if
  27.     end if
  28.   end repeat
  29.   set flashCount to flashCount + 1
  30. end repeat
  31.